home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / BBS / SECOND_SIGHT / NJMUG FSP Control.cpt / NJMUG "FSP Control" next >
Text File  |  1989-12-25  |  7KB  |  183 lines
  1. *      NJMUG BBS FSP Control File  (12/25/89)      Sysop: Mike Bielen
  2. *      (201) 388-1676  300/1200/2400/9600 (HST)    Fidonet: 107/947 - MacList: 6001/3
  3. *
  4. *  The following File Section Processor (FSP) scripts demonstrate how to eliminate tedious
  5. *  Red Ryder Host/ Second Sight file maintenance tasks.  The scripts will do the following:
  6. *
  7. *  1) Automatically create/maintain a new file listing (or a global file listing) while
  8. *     still maintaining accurate file access counts in their respective file libraries.
  9. *  2) Create file requestable (FREQ) FILES and NEWFILES listings.
  10. *  3) Create a text file of recent file uploads (Display on login or on BBS).
  11. *  4) Create a text file of listing of the most accessed files (Display on login or on BBS).
  12. *
  13. *  If you have any questions and/or suggestions, I can be contacted on the following networks:
  14. *
  15. *     GEnie: M.BIELEN     Connect: BIELEN     CompuServe: 71641,753     Applelink: UG0135
  16. *
  17. *  Finally, if you are using FSP and haven't sent Tom Konantz some $$$ for his time, sit down
  18. *  and write a check.  Show him how much we really appreciate this wonderful utility.
  19. *
  20. ***************************************************
  21. * Set up macro to update access counters of files *
  22. * downloaded from "MacNew" (new files section).   *
  23. ***************************************************
  24. *
  25. DEFINEMACRO "UPDATECNT" ; Update Counter Macro
  26. CLEAR
  27. LOAD "@1"
  28. ADD/DLCNT "DD-80:BBS:Uploads:MacNew" ; RRH File Library of Newest files on System.
  29. SAVE "@1"
  30. ENDMACRO
  31. *
  32. *********************************************
  33. * Update counters of various file sections. *
  34. *********************************************
  35. *
  36. UPDATECNT "DD-80:BBS:Files:MacBus:MacBusF"
  37. UPDATECNT "DD-80:BBS:Files:MacComm:MacCommF"
  38. UPDATECNT "DD-80:BBS:Files:MacDA:MacDAF"
  39. UPDATECNT "DD-80:BBS:Files:MacDemo:MacDemoF"
  40. UPDATECNT "DD-80:BBS:Files:MacEPS:MacEPSF"
  41. UPDATECNT "DD-80:BBS:Files:MacFKey:MacFKeyF"
  42. UPDATECNT "DD-80:BBS:Files:MacFont:MacFontF"
  43. UPDATECNT "DD-80:BBS:Files:MacGame:MacGameF"
  44. UPDATECNT "DD-80:BBS:Files:MacGUtil:MacGUtilF"
  45. UPDATECNT "DD-80:BBS:Files:MacHyper:MacHyperF"
  46. UPDATECNT "DD-80:BBS:Files:MacInfo:MacInfoF"
  47. UPDATECNT "DD-80:BBS:Files:MacInit:MacInitF"
  48. UPDATECNT "DD-80:BBS:Files:MacMac2:MacMac2F"
  49. UPDATECNT "DD-80:BBS:Files:MacNJMUG:MacNJMUGF"
  50. UPDATECNT "DD-80:BBS:Files:MacObject:MacObjectF"
  51. UPDATECNT "DD-80:BBS:Files:MacPict:MacPictF"
  52. UPDATECNT "DD-80:BBS:Files:MacProg:MacProgF"
  53. UPDATECNT "DD-80:BBS:Files:MacSIT:MacSITF"
  54. UPDATECNT "DD-80:BBS:Files:MacSound:MacSoundF"
  55. UPDATECNT "DD-80:BBS:Files:MacSys:MacSysF"
  56. UPDATECNT "DD-80:BBS:Files:MacSysop:MacSysopF"
  57. UPDATECNT "DD-80:BBS:Files:MacUtil:MacUtilF"
  58. UPDATECNT "DD-80:BBS:Files:MacVW:MacVWF"
  59. DELETEFILE "DD-80:BBS:Uploads:MacNew"   ; Delete File Library once Access Counters are updated.
  60. *
  61. *************************************************
  62. * Load file sections into memory for processing.*
  63. *************************************************
  64. *
  65. CLEAR
  66. ADD "DD-80:BBS:Files:MacBus:MacBusF"
  67. ADD "DD-80:BBS:Files:MacComm:MacCommF"
  68. ADD "DD-80:BBS:Files:MacDA:MacDAF"
  69. ADD "DD-80:BBS:Files:MacDemo:MacDemoF"
  70. ADD "DD-80:BBS:Files:MacEPS:MacEPSF"
  71. ADD "DD-80:BBS:Files:MacFKey:MacFKeyF"
  72. ADD "DD-80:BBS:Files:MacFont:MacFontF"
  73. ADD "DD-80:BBS:Files:MacGame:MacGameF"
  74. ADD "DD-80:BBS:Files:MacGUtil:MacGUtilF"
  75. ADD "DD-80:BBS:Files:MacHyper:MacHyperF"
  76. ADD "DD-80:BBS:Files:MacInfo:MacInfoF"
  77. ADD "DD-80:BBS:Files:MacInit:MacInitF"
  78. ADD "DD-80:BBS:Files:MacMac2:MacMac2F"
  79. ADD "DD-80:BBS:Files:MacNJMUG:MacNJMUGF"
  80. ADD "DD-80:BBS:Files:MacObject:MacObjectF"
  81. ADD "DD-80:BBS:Files:MacPict:MacPictF"
  82. ADD "DD-80:BBS:Files:MacProg:MacProgF"
  83. ADD "DD-80:BBS:Files:MacSIT:MacSITF"
  84. ADD "DD-80:BBS:Files:MacSound:MacSoundF"
  85. ADD "DD-80:BBS:Files:MacSys:MacSysF"
  86. ADD "DD-80:BBS:Files:MacSysop:MacSysopF"
  87. ADD "DD-80:BBS:Files:MacUtil:MacUtilF"
  88. ADD "DD-80:BBS:Files:MacVW:MacVWF"
  89. *
  90. ******************************************************
  91. * Create Complete File Request (FREQ: FILES) Listing *
  92. ******************************************************
  93. *
  94. SORT/DATE
  95. FORMAT "COL:3+'FREQ name:'+NAME+COL:40+'Size:'+SIZEK"
  96. FORMAT "+CR+0+DESCA"
  97. SAVETEXT/FORMAT "DD-80:BBS:Files:Requests:Files" ; (FREQ: FILES)
  98. *
  99. *********************************
  100. * Create New Files File Library *
  101. *********************************
  102. *
  103. DELETE/NONE
  104. DELETE/AGE ">21" ; Deletes files older than 21 days (Adjust to your BBS' file volume)
  105. PURGE
  106. CLEAR/DLCNT
  107. INVERT ; Invert file list in memory to conform to my system.
  108. SAVE "DD-80:BBS:Uploads:MacNew" ; RRH File Library of Newest files on System.
  109. INVERT ; Revert file list in memory back to the way it was.
  110. *
  111. *******************************************
  112. * Create Last 7 Days File Listing         *
  113. * (File is merged with "Last7Text" using) *
  114. * (Pete Johnson's Splice utility)         *
  115. * (Displayed on login as System3.MSG).    *
  116. *******************************************
  117. *
  118. DELETE/AGE ">7" ; Deletes files older than 7 days (Adjust to your BBS' file volume)
  119. PURGE
  120. FORMAT "COL:5+TI+COL:27+SIZE+COL:45+UPLDR"
  121. SAVETEXT/FORMAT "DD-80:BBS:Text:Last7Data"
  122. *
  123. ****************************************************
  124. * Create New File Request (FREQ: NEWFILES) Listing *
  125. ****************************************************
  126. *
  127. CLEAR
  128. LOAD "DD-80:BBS:Uploads:MacNew"
  129. FORMAT "COL:3+'FREQ name:'+NAME+COL:40+'Size:'+SIZEK"
  130. FORMAT "+CR+0+DESCA"
  131. FORMAT "+TAB"
  132. SAVETEXT/FORMAT "DD-80:BBS:Files:Requests:NewFiles" ; (FREQ: FILES)
  133. *
  134. *********************************************************
  135. * Load file sections into memory for processing. (AGAIN) *
  136. *********************************************************
  137. *
  138. CLEAR
  139. ADD "DD-80:BBS:Files:MacBus:MacBusF"
  140. ADD "DD-80:BBS:Files:MacComm:MacCommF"
  141. ADD "DD-80:BBS:Files:MacDA:MacDAF"
  142. ADD "DD-80:BBS:Files:MacDemo:MacDemoF"
  143. ADD "DD-80:BBS:Files:MacEPS:MacEPSF"
  144. ADD "DD-80:BBS:Files:MacFKey:MacFKeyF"
  145. ADD "DD-80:BBS:Files:MacFont:MacFontF"
  146. ADD "DD-80:BBS:Files:MacGame:MacGameF"
  147. ADD "DD-80:BBS:Files:MacGUtil:MacGUtilF"
  148. ADD "DD-80:BBS:Files:MacHyper:MacHyperF"
  149. ADD "DD-80:BBS:Files:MacInfo:MacInfoF"
  150. ADD "DD-80:BBS:Files:MacInit:MacInitF"
  151. ADD "DD-80:BBS:Files:MacMac2:MacMac2F"
  152. ADD "DD-80:BBS:Files:MacNJMUG:MacNJMUGF"
  153. ADD "DD-80:BBS:Files:MacObject:MacObjectF"
  154. ADD "DD-80:BBS:Files:MacPict:MacPictF"
  155. ADD "DD-80:BBS:Files:MacProg:MacProgF"
  156. ADD "DD-80:BBS:Files:MacSIT:MacSITF"
  157. ADD "DD-80:BBS:Files:MacSound:MacSoundF"
  158. ADD "DD-80:BBS:Files:MacSys:MacSysF"
  159. ADD "DD-80:BBS:Files:MacSysop:MacSysopF"
  160. ADD "DD-80:BBS:Files:MacUtil:MacUtilF"
  161. ADD "DD-80:BBS:Files:MacVW:MacVWF"
  162. *
  163. **********************************************
  164. * Create Top Download Access File List       *
  165. * (File is merged with "TopDLText" using)    *
  166. * (Pete Johnson's Splice utility)            *
  167. * (Displayed as TopDLSys in News/Info Area). *
  168. **********************************************
  169. *
  170. DELETE/DLCNT "<42" ; Deletes files with access counts less than 42 (Adjust to your BBS' file volume)
  171. PURGE
  172. SORT/DLCNT
  173. FORMAT "TI+COL:20+SIZEK+COL:30+DLCNT+COL:44+DATE+COL:58+UPLDR"
  174. SAVETEXT/FORMAT "DD-80:BBS:Text:TopDLData"
  175. *
  176. ******************
  177. * Clear and Exit *
  178. ******************
  179. *
  180. CLEAR
  181. LAUNCH "DD-80:BBS:Splice1" ; Launch Splice to merge files together.
  182. END
  183.